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; Detailed Current Edit History 
return nearest integer as INTEGER*2 


C 15 
MTH$1IGNNT - Nearest Integer 16-SEP-1984 01:42:14 VAX/VMS Macro v04-00 Page 1 | 
O02 ? g-SEp-1 984 94:38:48 MTHRTL.SR RCM MTHIIGNNT.MAR; 1 , et 
00 1 -TITLE MTHSIIGNNT - Nearest Integer 
009 é IDENT Minos File: MPHIIGNNT MAR | 
$00 4 
it 5 S eaaeeeeuennncersceveverencensetereeecoenennennecsencsoqqenwooscesesenceneeee 
7* * 
000 ; :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 8 ;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
44 10 c ALL RIGHTS RESERVED. ® 
s 
0000 11 ;* THIS SOFTWARE i FURNISHED UNDER A LICENSE AND MAY BE USED AND ite * 
i 1 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE ll ho NOTICE. THIS SOFTWARE OR ANY OTHER oa 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1 3* TRANSFERRED. * 
o® ® 
0000 18 ;* phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8000 $9 :* CORPORATION. * 
7* ® 
0000 $$ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 ;* * 
0000 25 ;* * 
sit $6 i FRR AERA ERE EEE ATER ARETE AAA AAA ATEAE AAA AAR 
0000 28 | 
0000 $9 3 
0000 0 ; FACILITY: MATH LIBRARY 
0000 H 3++ 
0000 ¢ 3; ABSTRACT: 
0000 33: ; 
0000 34 ; Return nearest integer of a G REAL*8 to a INTEGER*2. 
0000 35 ; 
0000 36 °° 
0000 37 3 
0000 3 3; VERSION: 1 
0000 9; 
0000 40 ; HISTORY: 
0000 41; 
0000 4g 3; AUTHOR: : 
st rb 3 Steven B. Lionel, 05-Feb-79: Version 1 
$000 45 ; MODIFIED BY: 
0000 4é ; 
0000 47 ; 
0000 48 ; 
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; INCLUDE FILES: 
; EXTERNAL SYMBOLS: 


: MACROS: 


PSECT DECLARATIONS: 
~-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 


; OWN STORAGE: 


rest 
RATI 
0000 : 
00 
000 
000 
4 
0000 
0000 
0000 
0000 
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MTHS1IGNNT - Nearest Integer 16-SEP-1984 01:42:14 YAX/VMS Macro v04-00 P 4 
O02 MTHSIIGNNT = return nearest integer as | ore EE o84 1:25:58 CMTHRTL.SRCJMTHIIGNNT.MAR; 1 st (4) 
-SBTTL MTHSIIGNNT - return nearest integer as INTEGER*2 
ag 
; FUNCTIONAL DESCRIPTION: 
0 ; Returns the nearest integer (rounded away from zero) of aG 
$ § : REAL*8 to a INTEGER*2 as a function value. 
999 ; CALLING SEQUENCE: 
000 ; nearest_int.ww.v = MTHSIIGNNT (arg.rg.r) 
00 ; 
00 3; INPUT PARAMETERS: 
00000004 $000 a 
0000 
0000 IMPLICIT INPUTS: 
6000 NONE 
0000 


RIPININPININID 4 2 OO  MQOOOOOCOOCOCOCOOOOOOOOOOMM@CCCDRD 38 
BUEN SO ODNA UE WIN 0 OD NAW EWN 9 ODNOAOU EWN OUOONOUS ay | 


100 ; 
: 3 
0000 1035 ; OUTPUT PARAMETERS: 
0000 104 ; NONE 
0000 105; 
0000 106 ; IMPLICIT OUTPUTS: 
0000 107 ; NONE 
0000 108; 
0000 109 ; FUNCTION VALUE: 
0000 110 ; nearest_integer - The integer nearest to arg, rounded 
0000 =+1 3 away from zero. 
0000 112; 
0000 1135 ; SIDE EFFECTS: 
$464 } 3 Reserved operand, Integer overflow exceptions. 
0000 116 ;-- 
0000 1 
0000 1 
0000 1 
0000 1 -ENTRY MTHSIIGNNT, “M<IV> 
50 04 BC 4BFD ait 1 CVTRGL @arg(AP), RO ; RO = rounded ar 
3 3 F7 000 1 CVTLW RO, RO ; RO = word resul 
QOOA 1 RET 
000B «1 
0008 «(1 
0008 #1 - END 


rg = 4 3 G floating argument 


MTHS1IGNNT - Nearest Int 16-SEP-1984 01:42:14 
Symbol table eee greeks $1i58ic8 fF 
ARG = 00000004 
MTHS1IGNNT 00000000 RG 01 

Smee asm eowan marae + 

! ; Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 

S$ 00000000 0.) 00 ¢ QO.) NOPIC USR CON ABS L 
MTHSCODE 0000000B_ ¢ "eee Oe Bar PIC USR CON’ REL L 
Hiieeeenenemnineets 
! Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.09 00:00:01.29 
Command processing 147 B88? 8-80 00:00:03.92 
Pass 1 77 88:88:08" 9 ee aE es 
Synbol table sort 0 00:00:00. g sb 99 
Pass 2 38 ba Be 4S 0:00:01.32 
Symbol table output 1 0:00:00.01 00:00:00.02 
Psect synopsis output 2 8860.06 66 00:00:00.19 
Cross-reference output 0 00:00:00.0 00:00:00.00 
Assembler run totais 298 00:00:01.41 00:00:09.09 


The working set Limit was 750 pages. 

1215 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 19 pages of symbol table space ot ha to hold 2 non-local and 0 Local symbols. 
126 source Lines were read in Pass 1, ge dg Ba object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


Sense ere sonenrnroasencene sn oee > 


Macro Library name 


-$255$DUA28: CSYSLIBIJSTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHIIGNNT/OBJ=OBJ$:MTHIIGNNT MSRC$:MTHIIGNNT/UPDATE=(ENHS:MTHI IGNNT) 
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CL NOSHR NOEX 
CL SHR EX 


cro V04-00 
RCM MTHIIGNNT.MAR; “hs 


E NORD NOWRT NOVEC BYTE 


RD NOWRT NOVEC LONG 
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